home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / TIEDEMO3.ZIP;1 / SOURCE / ICON368.TS / ICON368.TS
Encoding:
Text File  |  1993-04-01  |  1.2 KB  |  53 lines
  1. unit    icon368:10    $$ vector graphics/text block
  2. 368        $$ label - return here if invalid input
  3. enable  touch
  4. pause   keys=all
  5. disable touch
  6. if      ((zkey = touch $and$ (ztouchx > 487) $and$ (ztouchy > 361) $and$ (ztouchx < 612) $and$ (ztouchy < 400)))
  7. .       calc    TOUCHBOX _ 0
  8. .       do      prtflist
  9. .       branch  368
  10. endif
  11. if      ((zkey = touch $and$ (ztouchx > 490) $and$ (ztouchy > 260) $and$ (ztouchx < 612) $and$ (ztouchy < 297)))
  12. .       calc    TOUCHBOX _ 1
  13. .       branch  368end
  14. endif
  15. style   outline
  16. style   thickness,1
  17. style   dash  $$ solid line style
  18. if      zkey = "a"
  19. .       do      menukey1
  20. .       branch  368
  21. endif
  22. if      zkey = "r"
  23. .       do      menukey1
  24. .       branch  368
  25. endif
  26. if      zkey = "q"
  27. .       do      menukey1
  28. .       branch  368
  29. endif
  30. if      zkey = "b"
  31. .       do      menukey1
  32. .       branch  368
  33. endif
  34. if      zkey = "o"
  35. .       do      menukey1
  36. .       branch  368
  37. endif
  38. if      zkey = "n"
  39. .       do      menukey1
  40. .       branch  368
  41. endif
  42. if      zkey = "f"
  43. .       do      menukey1
  44. .       branch  368
  45. endif
  46. if      zkey = "h"
  47. .       do      menukey1
  48. .       branch  368
  49. endif
  50. branch  368   $$ not valid input - get again
  51. 368end
  52. disable touch
  53.